10 GOSUB60100:PRINT"[147][142]":POKE650,128
100 POKE53280,0:POKE53281,0:POKE646,5
110 PRINTCHR$(147):FORX=1TO10:PRINT:NEXT
150 N=100:DIMD$(N),B$(N),E$(N),F$(N),L$(N),G$(40):BK$="[175]"
152 C$(1)="D":C$(2)="C":C$(3)="R":C$(4)="Q"
155 PRINT"[147][158]          CREDIT CARD CONTROL
156 [153]"PRINT          USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
160 FORX=1TO6:PRINT:NEXT
170 PRINTTAB(14)"[158]*** MENU ***":PRINT
180 PRINTTAB(5)"[154]D - [159]DISPLAY CREDIT CARD DATA
190 [153][163]5)"CONTC - OPENCREATE/ADD CREDIT CARD DATA
200 PRINTTAB(5)"[154]R - [159]REPORT LOST OR DAMAGED CARDS
210 [153][163]5)"CONTQ - OPENQUIT
220 PRINT"[154]"TAB(11)"ENTER SELECTION: [157][153]";BK$;"[158]";
225 MO=16:NC=1:GOSUB60500
235 FORB=1TO4:IFC$(B)=A$THENA=B:GOTO250
236 NEXT
237 GOTO220
250 ONAGOTO280,500,690,60000
260 :
270 :
280 PRINT"[147][158]        DISPLAY CREDIT CARD DATA
281 [153]"PRINT        USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
285 GOSUB1240:IFABTHEN155
286 GOSUB1400
287 GOSUB1350:IFERTHEN155
290 PRINT"CREDIT CARDS ON FILE TO DATE:":PRINT
300 PRINT"NAME[146]"TAB(16)"ACCT. #[146]"TAB(31)"EXP DATE[146]
310 [153]"----"[163]16)"-------"[163]30)"--------
320 K1=0
330 FORX=1TON
340 INPUT#1,D$(X)
350 IFD$(X)="END"THEN440
360 IFK1<17THEN400
370 PRINT:PRINTTAB(8)"PRESS RETURN[146] TO CONTINUE":PRINT
380 GETA$:IFA$<>CHR$(13)THEN380
390 K1=0
400 INPUT#1,B$(X),E$(X),F$(X),L$(X)
410 PRINTD$(X);TAB(10);B$(X);TAB(33);E$(X)
420 K1=K1+1
430 NEXTX
440 CLOSE1:PRINT:PRINT"END OF FILE.":PRINT:PRINTTAB(12)"PRESS M FOR MENU
450 [161]A$:[139]A$[178]""[167]450
460 [139]A$[179][177]"M"[167]450
470 [156]:[137]150
480 :
490 :
500 [153]"LOADSYS      CREATE/ADD CREDIT CARD DATA
501 PRINT"[153]      [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
505 X[178]1
510 [141]1240:[141]1260:[141]1440:[153][199](147)
520 [129]X[178]X[164]N
530 [153]"LOAD          LISTTYPE ENDLIST TO EXIT.
540 PRINT"ENTRY # [153]";X:PRINT
545 PRINT"            [153][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][145][145]"
550 PRINT"[129]NAME OF CARD:[158]";BK$;
555 MO=190:NC=30:GOSUB60500:D$(X)=A$
560 IFD$(X)="END"THEN670
565 PRINT"          [153][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][145][145]"
570 PRINT"[129]ACCOUNT #:[158]";BK$;
575 MO=2:NC=30:GOSUB60500:B$(X)=A$
577 PRINT"                            [153][183][183][183][183][183][145][145]
580 [153]"FOREXPIRATION DATE (EX: 01/84):SYS";BK$;
585 MO[178]130:NC[178]5:[141]60500:E$(X)[178]A$
587 [153]" PRINTUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRONONON
590 PRINT"[129]COMPANY P.O. OR STREET ADDRESS"
595 PRINT":[158]";BK$;:NC=38:MO=190:GOSUB60500:F$(X)=A$
597 PRINT" [153][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][145][145][145]
600 [153]"FORCITY STATE & ZIP (SORRY, NO COMMAS.)":[153]":SYS";BK$;
605 MO[178]190:NC[178]38:[141]60500:L$(X)[178]A$
620 [153]:[153]"IS DATA CORRECT (Y/N)
630 GETZ$:IFZ$=""THEN630
640 IFZ$="Y"THEN660
650 IFZ$="N"THENPRINT"[145]    RE-ENTER DATA[146]    ":FORA=1TO2000:NEXT:GOTO530
660 PRINT:PRINT:NEXTX
670 CLOSE2:PRINT"[147]";:GOTO1450
680 :
690 PRINTCHR$(147):GOSUB1440:PRINT
700 PRINT"[129]YOUR NAME:[158]";BK$;:MO=190:NC=20:GOSUB60500:GOSUB 60600:YN$=A$
710 PRINT"[129]STREET OR POST OFFICE:[158]";BK$;:GOSUB60500:GOSUB 60600:  MA$=A$
720 PRINT"[129]CITY:[158]";BK$;:GOSUB60500:GOSUB 60600:CI$=A$
730 PRINT"[129]STATE & ZIP CODE:[158]";BK$;:GOSUB60500:GOSUB 60600:SZ$=A$
740 PRINT"[129]TODAY'S DATE:[158]";BK$;:GOSUB60500:TD$=A$
750 CLOSE2
760 PRINTCHR$(147):PRINT
770 GOSUB1250:GOSUB1400:GOSUB1710:GOSUB1350:IFERTHEN155
780 FORX=1TON
790 INPUT#1,D$(X)
800 IFD$(X)="END"THEN900
810 INPUT#1,B$(X),E$(X),F$(X),L$(X)
820 PRINT"[155]DO YOU WANT A REPORT FOR: ";D$(X):PRINT"PRESS: Y [155]OR N"
830 GETQ1$:IFQ1$=""THEN830
840 IFQ1$="N"THEN870
845 IFQ1$="Y"THEN850
846 GOTO830
850 PRINT"[155]IS CARD LOST OR DESTROYED:":PRINT"PRESS: L [155]OR D
855 [161]W$:[139]W$[178]""[167]855
856 [139]W$[178]"L"[167]W$[178]"LOST":[137]860
857 [139]W$[178]"D"[167]W$[178]"DESTROYED":[137]860
858 [137]855
860 [141]920
870 [139]ST[178]0[167][130]X
880 [139]ST[178]64[167]900
890 [139]ST[179][177]0[175]ST[179][177]64[167][153]"ERROR...";ST:[160]1:[128]
900 [160]1:[153]"END OF FILE":[129]T[178]1[164]1000:[130]:[156]:[137]150
910 :
920 :
930 SN$[178]"(null)INCERELY,"
940 [159]4,4,7
950 [152]4
960 [152]4,""[163]80[171][195](MA$));MA$
970 [152]4,""[163]79[171][195](CI$)[171][195](SZ$));CI$;" ";SZ$
980 [152]4,""[163]80[171][195](TD$));TD$
990 A$[178]D$(X):[141]60600:[152]4,A$
1000 A$[178]F$(X):[141]60600:[152]4,A$
1010 A$[178]L$(X):[141]60600:[152]4,A$
1020 [152]4
1030 [152]4,"(null)VAL: ATNCCOUNT # ";B$(X)
1040 [152]4
1050 [152]4,"STR$EAR (null)IR:
1060 PRINT#4
1070 PRINT#4,""TAB(5)"[201]N REGARD TO THE ABOVE ACCOUNT,";
1075 PRINT#4," [201] AM REPORTING THAT MY CARD WAS
1080 [152]4
1090 [152]4,W$;" ON OR ABOUT THE ABOVE DATE.
1100 PRINT#4:PRINT#4
1110 PRINT#4,""TAB(5)"[208]LEASE TAKE ANY NECESSARY ACTION";
1115 PRINT#4," TO INSURE THAT THERE IS NO
1120 [152]4
1130 [152]4,"UNAUTHORIZED USE OF THIS CARD,";
1135 [152]4," AND PLEASE ISSUE A REPLACEMENT AS
1140 PRINT#4
1150 PRINT#4,"SOON AS POSSIBLE.
1160 [152]4:[152]4
1170 [152]4,""[163]5)"(null)LEASE CONTACT ME IF";
1175 [152]4," ADDITIONAL INFORMATION IS NEEDED.
1180 FORX=1TO4:PRINT#4:NEXT
1190 PRINT#4,""TAB(70-LEN(SN$));SN$
1200 FORX=1TO4:PRINT#4:NEXT
1210 PRINT#4,""TAB(75-LEN(YN$));YN$
1220 PRINT#4:CLOSE4
1230 RETURN
1240 AB=.
1245 PRINT"                  [153][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][145][145]
1250 [153]"OPENCARDHOLDER'S NAME:SYS";BK$;:MO[178]190:NC[178]16:[141]60500:FI$[178]A$
1255 [139]A$[178]""[167]AB[178]1
1256 [142]
1260 [153]:[153]"CONT(ACONT)DD TO EXISTING FILE
1265 PRINT"[154](N[154])EW FILE":PRINT"[154](R[154])ETURN TO MENU
1270 [161]Z$:[139]Z$[178]""[167]1270
1280 [139]Z$[178]"N"[167][142]
1290 [139]Z$[178]"A"[167]1620
1300 [139]Z$[178]"R"[167][156]:[137]150
1310 [139]Z$[179][177]"N"[175]Z$[179][177]"A"[175]Z$[179][177]"R"[167]1270
1340 [142]
1350 ER[178].:[141]1730
1360 [161]Z$:[139]Z$[178]""[167]1360
1361 [139]Z$[178]"T"[167]1370
1362 [159]3,8,3,""[170]FI$[170]"":[160]3:[159]15,8,15:[132]15,A$,B$:[160]15
1363 ER[178].:[139]A$[178]"00"[167]1380
1364 [153]"DEFDISK ERROR:";A$,B$
1365 [129]A[178]1[164]2000:[130]
1366 ER[178]1:[142]
1370 [139]Z$[178]"T"[167][159]1,1,0,FI$:[142]
1380 [139]Z$[178]"D"[167][159]1,8,8,FI$[170]",S,R":[142]
1390 [139]Z$[179][177]"T"[175]Z$[179][177]"D"[167]1360
1400 [153]:[153]"OPEN  INSERT SOURCE FILE AND PRESS RETURN  WAIT
1410 GETZ$
1420 IFZ$<>CHR$(13)THEN1410
1430 RETURN
1440 OPEN2,0:RETURN
1450 :
1460 GOSUB1400:GOSUB1560
1470 FORX=1TON
1480 PRINT#1,D$(X):PRINT#1,B$(X):PRINT#1,E$(X):PRINT#1,F$(X):PRINT#1,L$(X)
1490 IFD$(X)="END"THEN1510
1500 NEXTX
1510 CLOSE1
1515 OPEN15,8,15:INPUT#15,A$,B$:CLOSE15:PRINT"[154]==>[159]";A$,B$
1520 PRINT:PRINT"DO YOU WANT A BACKUP COPY (Y/N)?
1530 [161]Z$:[139]Z$[178]""[167]1530
1540 [139][200](Z$,1)[178]"Y"[167]1460
1550 [156]:[137]150
1560 [141]1730
1565 AD$[178]"0":[139]AD[167]AD[178].:AD$[178]"@0"
1570 [161]Z$:[139]Z$[178]""[167]1570
1580 [139]Z$[178]"T"[167][159]1,1,1,FI$:[142]
1590 [139]Z$[178]"D"[167][159]1,8,8,[170]AD$[170]":"[170]FI$[170]",S,W":[142]
1600 [139]Z$[179][177]"T"[175]Z$[179][177]"D"[167]1570
1610 :
1620 :
1630 [141]1400:[141]1350
1635 [139]ER[167]155
1640 [153][199](147)
1650 [129]X[178]1[164]N
1660 [132]1,D$(X),B$(X),E$(X),F$(X),L$(X)
1670 [139]D$(X)[178]"END"[175]ST[178]64[167]1700
1680 [139]ST[178]0[167][130]X
1690 [139]ST[179][177]0[175]ST[179][177]64[167][153]"ERROR..."ST:[160]1:[128]
1700 [160]1:AD[178]1:[142]
1710 [153]"   TURN ON PRINTER AND PRESS RETURN    WAIT":[141]1410:[142]
1730 [153]:[153]"TWAITLISTAPE OR DWAITLISTISK":[153]:[142]
60000 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
60010 [153]"LOAD";:[139]ER[179][177]63[167][128]
60020 [147]"HELLO CONNECT",8
60100 PN$[178]"LEN(null)VALSTR$RIGHT$(null)CLOSELENATN(null)STR$ LEN(null)(null)(null)(null)(null)(null)":AN$[178]"PEEK(null):  (null)(null)PEEKVAL(null)(null) VAL. (null)(null)(null)ASCVAL(null)
60110 BO=11:SC=15:CL=06:C1=12:C2=00:C3=12:C4=00:C5=00:C6=02:C7=09
60130 POKE53280,BO:POKE53281,SC:PRINT"[147]";:GOTO60250
60140 POKE646,C1:PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
60150 [151]646,C2:[153]" FN        (null)(null)ATNSTR$(null)(null)ATN(null) (null)(null)VAL(null)VAL(null)(null)(null):        THEN
60170 POKE646,C1:PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
60180 [151]646,C6:[153]""[163]20[171][195](PN$)[173]2);PN$
60190 [151]646,C7:[153]""[163]20[171][195](AN$)[173]2);AN$
60200 [151]646,C5:[153]""[163]13)"LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) 1986"
60210 [153][163]9)"LEN(null)(null)(null)(null)STR$(null)(null)VAL (null)(null)PEEK(null)RIGHT$LENATN(null)RIGHT$(null)(null)(null)"
60220 [151]646,C3:[153]" TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
60230 POKE646,C4:PRINT" [165]                                  [167]
60240 [151]646,C3:[153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(WAIT";
60245 [151]198,.:[137]60360
60250 [151]646,CL
60255 [153]" *NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWRND
60260 FORA=1TO3:GOSUB60470:NEXT
60270 GOSUB60470:PRINT"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
60280 [129]A[178]1[164]16:[141]60470:[130]
60290 [153]"ONANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND
60300 FORA=1TO3:GOSUB60470:NEXT
60310 PRINT" [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]";
60320 POKE53280,BO:POKE53281,SC:GOTO60140
60360 PRINT"";
60370 POKE646,C2:PRINT"[165][208]RESS THE [[211][208][193][195][197] [194][193][210]] TO CONTINUE.[167]"
60390 FORA=1TO100:GETA$:IFA$=" "ORA$="[160]"THENRETURN
60400 NEXT
60410 PRINT"";
60420 PRINT"[165]                                  [167]
60440 [129]A[178]1[164]100:[161]A$:[139]A$[178]" "[176]A$[178]"CLOSE"[167][142]
60450 [130]
60460 [137]60360
60470 [153]" GETWAITGET":[142]
60500 [129]Z8[178]1[164]NC
60502 [161]A$:[139]A$[178]""[167]60502
60503 [139]A$[178]"?"[176]A$[178]","[167]60502
60504 [139]A$[178]"LOAD"[176]A$[178]""[176]A$[178]"SAVE"[176]A$[178]"ON"[176]A$[178]"CMD"[176]A$[178]""[176]A$[178]""[167]60502
60505 [139]A$[178][199](13)[176]A$[178][199](141)[167][153]"CMD ":[137]60544
60506 [139]A$[178]" "[176]A$[178]"CLOSE"[167]60540
60508 [139]A$[178][199](20)[175]Z8[178]1[167]60502
60510 [139]A$[178][199](20)[167]Z8[178]Z8[171]1:[153]"CMDCMD  CMDCMD";BK$;:[137]60502
60520 [139]A$[177]"/"[175]A$[179]":"[175](MO[175]2)[167]60540
60522 [139]A$[177]" "[175]A$[179]"*"[175](MO[175]4)[167]60540
60524 [139]A$[177]"TAN"[175]A$[179]"(null)"[175](MO[175]8)[167]60540
60526 [139]A$[177]"@"[175]A$[179]"["[175](MO[175]16)[167]60540
60528 [139]A$[177][199](160)[175]A$[179][199](192)[175](MO[175]32)[167]60540
60530 [139]A$[177][178][199](0)[175]A$[179]""[175](MO[175]64)[167]60540
60532 [139]A$[177]")"[175]A$[179]"0"[175](MO[175]128)[167]60540
60534 [139]A$[177]"9"[175]A$[179]"A"[175](MO[175]128)[167]60540
60536 [139]A$[177]"Z"[175]A$[179]"FOR"[175](MO[175]128)[167]60540
60538 [137]60502
60540 [153]"CMD";A$;:[151]212,.:[153]BK$;
60542 G$(Z8)[178]A$:[130]
60544 [153]"CMDWAIT "
60546 A$[178]"":[129]A[178]1[164]Z8[171]1:A$[178]A$[170]G$(A):[130]:[139]Z8[178]1[167]A$[178]""
60548 [142]
60600 B$[178]"":[129]A[178]1[164][195](A$)
60610 Z$[178][202](A$,A,1)
60620 [139]Z$[179][178]"Z" [175] Z$[178][177]"A" [167]Z$[178][199]([198](Z$)[170]128)
60630 B$[178]B$[170]Z$
60640 [130]:A$[178]B$
60650 [142]